perm filename LKSGD.F4[TLC,MUS]2 blob
sn#061201 filedate 1973-09-03 generic text, type T, neo UTF8
00100 C GOOD-LOOKS PROGRAM -- TYPE X TO BACKUP
00200 INTEGER DL,SL,HX,WL
00300 11 FORMAT(A1)
00400 1 FORMAT(' LEGS? GOOD OR BAD? ',$)
00500 12 TYPE 1
00600 ACCEPT 11,L
00700 IF(L.EQ.'G')GO TO 16
00800
00900 2 FORMAT(' THIGHS? ',$)
01000 13 TYPE 2
01100 ACCEPT 11,T
01200 IF(T.EQ.'X')GO TO 12
01300
01400 3 FORMAT(' KNEES? ',$)
01500 14 TYPE 3
01600 ACCEPT 11,K
01700 IF(K.EQ.'X')GO TO 13
01800
01900 4 FORMAT(' CALVES? ',$)
02000 15 TYPE 4
02100 ACCEPT 11,C
02200 IF(C.EQ.'X')GO TO 14
02300
02400 5 FORMAT(' ARMS? ',$)
02500 16 TYPE 5
02600 ACCEPT 11,A
02700 IF(A.EQ.'X')GO TO 15
02800
02900 6 FORMAT(' SHOULDERS? GOOD, WIDE OR NARROW? ',$)
03000 17 TYPE 6
03100 ACCEPT 11,S
03200 IF(S.EQ.'X')GO TO 16
03300
03400 7 FORMAT(' WAIST? GOOD, WIDE OR NARROW? ',$)
03500 18 TYPE 7
03600 ACCEPT 11,H
03700 IF(H.EQ.'X')GO TO 17
03800
03900 8 FORMAT(' HIPS? GOOD, WIDE OR NARROW? ',$)
04000 19 TYPE 8
04100 ACCEPT 11,B
04200 IF(B.EQ.'X')GO TO 18
04300
04400 9 FORMAT(' BUST? GOOD, BIG OR SMALL? ',$)
04500 20 TYPE 9
04600 ACCEPT 11,N
04700 IF(N.EQ.'X')GO TO 19
04800
04900 10 FORMAT(' NECK? GOOD, LONG OR SHORT? ',$)
05000 DL=1
05100 IF(L.EQ.'G')GO TO 21
05200 C JUMP IF GOOD LEGS
05300 IF(T.EQ.'B')DL=2
05400 IF(K.EQ.'B')DL=3
05500 IF(C.EQ.'B')DL=4
05600 21 SL=1
05700 IF(S.EQ.'N')SL=3
05800 C SHOULDER LINE BEST
05900 IF(S.NE.'W')GO TO 22
06000 SL=2
06100 C SLEEVELESS BEST, NO SHOULDER LINE
06200 IF(A.EQ.'B')SL=4
06300 C LONG SLEEVES,NO SHOULDER LINE
06400 41 FORMAT(/' << SKIRT SHOULD BE '$)
06500 22 TYPE 41
06600 GO TO(23,24,25,26),DL
06700
06800 27 FORMAT('+SHORT.'/)
06900 23 TYPE 27
07000 GO TO 28
07100
07200 29 FORMAT('+MEDIUM SHORT.'/)
07300 24 TYPE 29
07400 GO TO 28
07500
07600 30 FORMAT('+MEDIUM LONG.'/)
07700 25 TYPE 30
07800 GO TO 28
07900
08000 31 FORMAT('+LONG.'/)
08100 26 TYPE 31
08200
08300 28 GO TO(32,33,34,35),SL
08400
08500 36 FORMAT(' << ANY SHOULDER CUT.'/)
08600 32 TYPE 36
08700 GO TO 37
08800
08900 38 FORMAT(' << SLEEVELESS IS BEST.'/)
09000 33 TYPE 38
09100 GO TO 37
09200
09300 39 FORMAT(' << USE SHOULDER LINE.'/)
09400 34 TYPE 39
09500 GO TO 37
09600
09700 40 FORMAT(' << LONG SLEEVES BUT NO SHOULDER LINE.'/)
09800 35 TYPE 40
09900
10200 37 IF(W.EQ.'W')WL=1
10300 IF(W.EQ.'N')WL=2
10310 GO TO(42,44),WL
10400 141 FORMAT('<<USE NO WAISTLINE.'/)
10500 42 TYPE141
10600 GO TO 45
10700 43 FORMAT('<<USE WAISTLINE.'/)
10800 44 TYPE42
10900 GO TO 45
11000 45 IF(H.EQ.'G')GO TO 200
11100 IF(H.EQ.'B')HX=1
11200 IF(H.EQ.'S')HX=2
11300 GO TO (47,49),HX
11400 47 IF(B.EQ.'S')TYPE 48
11500 48 FORMAT(' <<USE EMPIRE WAIST.'/)
11600 IF(B.NE.'S')TYPE 141
11700 200 IF(A.EQ.'G')GO TO 201
11800 IF(S.EQ.'N')TYPE 49
11900 49 FORMAT(' <<USE 3/4 SLEEVE.'/)
12000 IF(S.EQ.'W')TYPE 50
12100 50 FORMAT(' <<USE LONG SLEEVE.'/)
12200 201 IF(B.EQ.'G')GO TO 202
12300 IF(B.EQ.'B')TYPE 51
12400 51 FORMAT(' <<NO SHOULDER LINE OR NO EMPIRE WAIST.'/)
12500 IF(B.NE.'S')GO TO 202
12600 IF(S.EQ.'W')TYPE 48
12700 IF(S.EQ.'N')TYPE 52
12800 52 FORMAT(' <<USE SHOULDER LINE UNDER-GATHERING.'/)
12900 202 CALL EXIT
13000 END